<%@ language="javascript"%>
<!DOCTYPE html>
<html>
<body>
<%
Function getHTTPPage(url)
Dim Http
Set Http = Server.CreateObject("MSXML2.XMLHTTP")
Http.Open "GET", url, False
Http.send()
If Http.readystate <> 4 Then
Exit Function
End If
getHTTPPage = BytesToBstr(Http.responseBody, "GB2312")
Set Http = Nothing
If Err.Number <> 0 Then Err.Clear
End Function

Function BytesToBstr(body, Cset)
Dim objstream
Set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode = 3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
Set objstream = Nothing
End Function

Response.write getHTTPPage("https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=wxaa1f342551a5902b&secret=5ab88302417be1e1a47daa33c50eeee5")

Response.Write("Hello World!")
%>
</body>
</html>